home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c-part2 / 12799 < prev    next >
Encoding:
Text File  |  1996-08-05  |  9.9 KB  |  287 lines
  1. Path: howland.reston.ans.net!psinntp!psinntp!psinntp!pipeline!not-for-mail
  2. From: johndill@nyc.pipeline.com (John Dillworth)
  3. Newsgroups: comp.lang.c,
  4. Subject: Win 3.1 SDK Why does this lock up??
  5. Date: 2 Apr 1996 16:31:24 -0500
  6. Organization: Pipeline
  7. Message-ID: <4js6bc$qi9@pipe9.nyc.pipeline.com>
  8. NNTP-Posting-Host: pipe9.nyc.pipeline.com
  9. X-PipeUser: johndill
  10. X-PipeHub: nyc.pipeline.com
  11. X-PipeGCOS: (John Dillworth)
  12. X-Newsreader: Pipeline v3.5.0
  13.  
  14. Sorry about the lenght of this code.  This is a modifaction of one of the
  15. Petzold Win 3.1 programs.  I want this progrm to work like this.  When you
  16. move the sliders the color int the tp part of the client are should change
  17. accordingly.  No problem with that.  I added a window below that.  I want
  18. this window to display the color of the slider that has the focus.  The
  19. progam comes up correctly but locks up.  I think the problem is in the
  20. paint messege 
  21. suggestions? 
  22.  
  23.  
  24. #include <windows.h> 
  25. #include <stdlib.h> 
  26.  
  27. #define min(a,b) (((a) < (b)) ? (a) : (b)) 
  28. #define max(a,b) (((a) > (b)) ? (a) : (b)) 
  29.  
  30. long FAR PASCAL _export WndProc    (HWND, UINT, UINT, LONG) ; 
  31. long FAR PASCAL _export ScrollProc (HWND, UINT, UINT, LONG) ; 
  32.  
  33. FARPROC lpfnOldScr[3] ; 
  34. HWND    hwndScrol[3], hwndLabel[3], hwndValue[3], hwndRect, hwndRect2 ; 
  35. short   color[3], nFocus ; 
  36.  
  37. int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance, 
  38.                     LPSTR lpszCmdLine, int nCmdShow) 
  39.      { 
  40.      static char szAppName[] = "Colors1" ; 
  41.      static char *szColorLabel[] = { "Red", "Green", "Blue" } ; 
  42.      FARPROC     lpfnScrollProc ; 
  43.      HWND        hwnd ; 
  44.      MSG         msg; 
  45.      short       n ; 
  46.      WNDCLASS    wndclass ; 
  47.  
  48.      if (hPrevInstance) 
  49.           return FALSE ; 
  50.  
  51.      wndclass.style         = CS_HREDRAW | CS_VREDRAW ; 
  52.      wndclass.lpfnWndProc   = WndProc ; 
  53.      wndclass.cbClsExtra    = 0 ; 
  54.      wndclass.cbWndExtra    = 0 ; 
  55.      wndclass.hInstance     = hInstance ; 
  56.      wndclass.hIcon         = NULL ; 
  57.      wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ; 
  58.      wndclass.hbrBackground = CreateSolidBrush (0L) ; 
  59.      wndclass.lpszMenuName  = NULL ; 
  60.      wndclass.lpszClassName = szAppName ; 
  61.  
  62.      RegisterClass (&wndclass) ; 
  63.  
  64.      hwnd = CreateWindow (szAppName, "Color Scroll", 
  65.                           WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN, 
  66.                           CW_USEDEFAULT, CW_USEDEFAULT, 
  67.                           CW_USEDEFAULT, CW_USEDEFAULT, 
  68.                           NULL, NULL, hInstance, NULL) ;  
  69.                            
  70.                            
  71.  
  72.      hwndRect = CreateWindow ("static", NULL, 
  73.                               WS_CHILD | WS_VISIBLE | SS_WHITERECT, 
  74.                               0, 0, 0, 0, 
  75.                               hwnd, 9, hInstance, NULL) ; 
  76.      hwndRect2 = CreateWindow ("static", NULL, 
  77.                               WS_CHILD | WS_VISIBLE | SS_WHITERECT, 
  78.                               0, 0, 0, 0, 
  79.                               hwnd, 9, hInstance, NULL) ;  
  80.                                 
  81.                                
  82.  
  83.      lpfnScrollProc = MakeProcInstance ((FARPROC) ScrollProc, hInstance) ; 
  84.  
  85.      for (n = 0 ; n < 3 ; n++)  
  86.           { 
  87.           hwndScrol[n] = CreateWindow ("scrollbar", NULL, 
  88.                               WS_CHILD | WS_VISIBLE | WS_TABSTOP |
  89. SBS_VERT, 
  90.                               0, 0, 0, 0, 
  91.                               hwnd, n, hInstance, NULL) ; 
  92.  
  93.           hwndLabel[n] = CreateWindow ("static", szColorLabel[n], 
  94.                               WS_CHILD | WS_VISIBLE | SS_CENTER, 
  95.                               0, 0, 0, 0, 
  96.                               hwnd, n + 3, hInstance, NULL) ; 
  97.  
  98.           hwndValue[n] = CreateWindow ("static", "0", 
  99.                               WS_CHILD | WS_VISIBLE | SS_CENTER, 
  100.                               0, 0, 0, 0, 
  101.                               hwnd, n + 6, hInstance, NULL) ;  
  102.  
  103.           lpfnOldScr[n] = (FARPROC) GetWindowLong (hwndScrol[n],
  104. GWL_WNDPROC) ; 
  105.           SetWindowLong (hwndScrol[n], GWL_WNDPROC, (LONG) lpfnScrollProc)
  106. ; 
  107.  
  108.           SetScrollRange (hwndScrol[n], SB_CTL, 0, 255, FALSE) ; 
  109.           SetScrollPos   (hwndScrol[n], SB_CTL, 0, FALSE) ; 
  110.           } 
  111.  
  112.      ShowWindow (hwnd, nCmdShow) ; 
  113.      UpdateWindow (hwnd); 
  114.  
  115.      while (GetMessage (&msg, NULL, 0, 0)) 
  116.           { 
  117.           TranslateMessage (&msg) ; 
  118.           DispatchMessage  (&msg) ; 
  119.           } 
  120.      return msg.wParam ; 
  121.      } 
  122.  
  123. long FAR PASCAL _export WndProc (HWND hwnd, UINT message, UINT wParam, 
  124.                                                           LONG lParam) 
  125.      { 
  126.      static HBRUSH hBrush[3] ; 
  127.      char          szbuffer[10] ; 
  128.      HDC           hdc ; 
  129.      POINT         point ; 
  130.      short         n, cxClient, cyClient, cyChar ; 
  131.      TEXTMETRIC    tm ; 
  132.   //   HDC         hdc ; 
  133.      PAINTSTRUCT ps ; 
  134.     // RECT     rect ; 
  135.  
  136.      switch (message) 
  137.           { 
  138.           case WM_CREATE : 
  139.                hBrush[0] = CreateSolidBrush (RGB (255, 0, 0)) ; 
  140.                hBrush[1] = CreateSolidBrush (RGB (0, 255, 0)) ; 
  141.                hBrush[2] = CreateSolidBrush (RGB (0, 0, 255)) ; 
  142.                return 0 ; 
  143.  
  144.           case WM_SIZE : 
  145.                cxClient = LOWORD (lParam) ; 
  146.                cyClient = HIWORD (lParam) ; 
  147.  
  148.                hdc = GetDC (hwnd) ; 
  149.                GetTextMetrics (hdc, &tm) ; 
  150.                cyChar = tm.tmHeight ; 
  151.                ReleaseDC (hwnd, hdc) ; 
  152.  
  153.                MoveWindow (hwndRect, 0, 0, cxClient /2, cyClient, TRUE) ;  
  154.  
  155.                MoveWindow (hwndRect2, cxClient/ 2,cyClient/2 , cxClient/ 2 
  156. , cyClient/2, TRUE) ;  
  157.                for (n = 0 ; n < 3 ; n++) 
  158.                     { 
  159.                     MoveWindow (hwndScrol[n], 
  160.                          (2 * n + 1) * cxClient / 14, 2 * cyChar, 
  161.                          cxClient / 14, cyClient - 4 * cyChar, TRUE) ; 
  162.  
  163.                     MoveWindow (hwndLabel[n], 
  164.                          (4 * n + 1) * cxClient / 28, cyChar / 2, 
  165.                          cxClient / 7, cyChar, TRUE) ; 
  166.  
  167.                     MoveWindow (hwndValue[n], 
  168.                          (4 * n + 1) * cxClient / 28, cyClient - 3 * cyChar
  169. / 2, 
  170.                          cxClient / 7, cyChar, TRUE) ; 
  171.                     } 
  172.                SetFocus (hwnd) ; 
  173.                return 0 ; 
  174.           case WM_PAINT:                         //PROBLEM HERE 
  175.            InvalidateRect(hwndRect2,NULL,TRUE); 
  176.            hdc = BeginPaint (hwndRect2, &ps) ; 
  177.            FillRect(hdc,&ps.rcPaint,hBrush[nFocus]); 
  178.                 
  179.            EndPaint (hwndRect2, &ps) ; 
  180.                return 0 ; 
  181.  
  182.           case WM_SETFOCUS: 
  183.                SetFocus (hwndScrol[nFocus]) ; 
  184.                return 0 ; 
  185.  
  186.           case WM_VSCROLL : 
  187.                n = GetWindowWord (HIWORD (lParam), GWW_ID) ; 
  188.  
  189.                switch (wParam) 
  190.                     { 
  191.                     case SB_PAGEDOWN : 
  192.                          color[n] += 15 ; 
  193.                                                   // fall through 
  194.                     case SB_LINEDOWN : 
  195.                          color[n] = min (255, color[n] + 1) ; 
  196.                          break ; 
  197.  
  198.                     case SB_PAGEUP : 
  199.                          color[n] -= 15 ; 
  200.                                                   // fall through 
  201.                     case SB_LINEUP : 
  202.                          color[n] = max (0, color[n] - 1) ; 
  203.                          break ; 
  204.  
  205.                     case SB_TOP: 
  206.                          color[n] = 0 ; 
  207.                          break ; 
  208.  
  209.                     case SB_BOTTOM : 
  210.                          color[n] = 255 ; 
  211.                          break ; 
  212.  
  213.                     case SB_THUMBPOSITION : 
  214.                     case SB_THUMBTRACK : 
  215.                          color[n] = LOWORD (lParam) ; 
  216.                          break ; 
  217.  
  218.                     default : 
  219.                          break ; 
  220.                     } 
  221.                SetScrollPos  (hwndScrol[n], SB_CTL, color[n], TRUE) ; 
  222.                SetWindowText (hwndValue[n], itoa (color[n], szbuffer, 10))
  223. ; 
  224.  
  225.                DeleteObject ( 
  226.                     SetClassWord (hwnd, GCW_HBRBACKGROUND,      // passes
  227. back old brush handle 
  228.                          CreateSolidBrush ( 
  229.                               RGB (color[0], color[1], color[2])))) ; 
  230.  
  231.                InvalidateRect (hwnd, NULL, TRUE) ; 
  232.                 
  233.                return 0 ; 
  234.  
  235.           case WM_CTLCOLOR: 
  236.                if (HIWORD (lParam) == CTLCOLOR_SCROLLBAR) 
  237.                     { 
  238.                     SetBkColor (wParam, GetSysColor (COLOR_CAPTIONTEXT)) ; 
  239.                     SetTextColor (wParam, GetSysColor (COLOR_WINDOWFRAME))
  240. ; 
  241.  
  242.                     n = GetWindowWord (LOWORD (lParam), GWW_ID) ; 
  243.                     point.x = point.y = 0 ; 
  244.                     ClientToScreen (hwnd, &point) ; 
  245.                     UnrealizeObject (hBrush[n]) ; 
  246.                     SetBrushOrg (wParam, point.x, point.y) ; 
  247.                     return ((DWORD) hBrush[n]) ; 
  248.                     } 
  249.                break ; 
  250.  
  251.           case WM_DESTROY: 
  252.                DeleteObject ( 
  253.                     SetClassWord (hwnd, GCW_HBRBACKGROUND, 
  254.                          GetStockObject (WHITE_BRUSH))) ; 
  255.  
  256.                for (n = 0 ; n < 3 ; DeleteObject (hBrush [n++])) ; 
  257.  
  258.                PostQuitMessage (0) ; 
  259.                return 0 ; 
  260.           } 
  261.      return DefWindowProc (hwnd, message, wParam, lParam) ; 
  262.      } 
  263.  
  264. long FAR PASCAL _export ScrollProc (HWND hwnd, UINT message, UINT wParam, 
  265.                                                              LONG lParam) 
  266.      { 
  267.      short n = GetWindowWord (hwnd, GWW_ID) ; 
  268.  
  269.      switch (message) 
  270.           { 
  271.           case WM_KEYDOWN: 
  272.                if (wParam == VK_TAB) 
  273.                     SetFocus (hwndScrol[(n + 
  274.                          (GetKeyState (VK_SHIFT) < 0 ? 2 : 1)) % 3]) ; 
  275.                break ; 
  276.  
  277.           case WM_SETFOCUS: 
  278.                nFocus = n ; 
  279.                break ; 
  280.           } 
  281.      return CallWindowProc (lpfnOldScr[n], hwnd, message, wParam, lParam) ;
  282.  
  283. -- 
  284. -- 
  285.  
  286. John Dillworth
  287.